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SUBBOUiriHB  I£BrrZPICATZ(ff 

A*  Title:  Correct  Apparent  Klevation  for  Refraction  (RC)  - 
Ident.  F99>  Nod.  R8 

B.  Frogranned:  J.  C.  Lenhoff,  Lockheed  Missile  and  Space  Division 

C.  Revised  and  Docisnented:  9  Novemher  I962,  Raney  Speer 
System  Developnent  Corporation. 

PURPOSE 

RC  corrects  for  refraction  any  number  of  apparent  elevations  vhlch  are 
within  the  range  0  to 
USAOB 

A.  Calling  Sequence: 

L  RTJ  RC 

Lfl  atO  EA 

ZRO  R 

L»2  Nonaal  Return 

where:  EA  «  the  location  of  the  first  elevation  to  be  corrected 
N  a  the  nunber  of  elevations  to  be  corrected 

B.  Inputs: 

The  input  elevations  must  be  e:q)ressed  as  floating-point  radians 
within  the  range  0  to  Srr. 

C.  Results: 

Each  corrected  elevation,  as  a  radian  value  in  floating-point 
fomat,  is  placed  in  the  location  of  the  input  elevation.  The 
correction  factor  is  stored  in  the  first  cell  of  COWlON. 

METHOD 

RC  picks  vgp  the  first  apparent  elevation  and,  if  it  lU.ls  in  the 
second  quadrant,  redtices  it  to  its  supplement.  Angles  in  the  third 
and  fourth  quadrants  are  taken  as  40.  Ibe  resulting  reduced  angel 
is  used  u  the  basis  for  determining  the  correction  fdetor  to  be  applied. 

The  correction  factor  is  found,  with  the  use  of  INDIV,  by  llnesur 
interpolation  within  the  Independent  and  dependent  variable  tables 
contained  in  RC.  The  Independent  variable  table  has  99  entries  of 
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apparent  elevations  (E^)  from  0  toTf/2;  the  dependent  variable  table 
has  59  values  for  refraction  correction  correspond!^  directly  to  the 
values  In  the  first  table.  Each  entry  (d)  In  the  dependent  variable 
table  was  pre-cooputed  as : 

d  »  2/  {(tan  E^)  ♦  [2  (h/R-»^)  +  tanS^^^ 

where :  EA  »  the  apparent  elevation 

H  s  enperlcal  constant  scale  height 
R  =  radius  of  the  earth 

h/r  =  .00303 

•>  Index  of  refraction  at  the  earth ' s  surface  -1>  M  ^  .00033 

Vhen  INDIV  yields  the  value  of  d>  RC  multiplies  It  by  OSie 
resxiltlng  correction  factor  Is  stored  In  COMMON. 

Before  the  factor  Is  applied^  RC  determines  the  quadrant  In  which  the 
apparent  elevation  was  originally.  If  it  was  In  the  first  quadrant, 
the  feustor  Is  subtracted  from  the  original  veLLue;  If  In  the  second 
quadrant  the  factor  is  added.  For  angles  In  the  third  quadrant,  the 
factor  Is  added  to  TT  and  for  the  fourth  quadrant,  the  factor  Is 
subtracted  from  0.  Ihe  corrected  elevation  then  Is  stored  In  the 
location  of  the  original  apparent  elevation. 

This  procedure  continues  tintll  all  specified  apparent  elevations  have 
been  corrected. 

RESTRICTIONS 

A.  Accuracy 

The  results  of  RC  fall  well  within  the  requirement  of  accuracy  to 
the  fourth  decimal  place.  A  more  definite  statement  of  accuracy 
can  not  be  made  because  Eu:curacy  varies  greatly  depending  on  the 
magnitude  of  the  input  and  Its  proximity  to  any  padr  of  entries  In 
the  two  tables  used  for  Interpolation. 
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B.  Input  Limlte 

Inputs  must  b«  within  the  range  0  to  2<rf>  Inputs  outside  these 
limits  will  not  he  reduced  prqperly  and  will  cause  an  error  return 
from  INDIV  which.  In  turn,  causes  a  Jump  to  SUBBRR  and  consequent 
halt. 

C .  Environment ' 

RC  uses  the  suhroutines  INDIV  and  SUBRRR,  and  the  Reference  Fool. 
Index  registers  1  and  2  are  saved,  used,  and  restored. 

TIMING 

Maximum  2U^3*6xN  *  101.)^  microseconds  plus  time  for  INDIV 

Minimum  I98.OXN  101.1^  microseconds  plus  time  for  INDIV 

where  N  =  number  of  elevations 
STORAGE  REQUIREMENTS 

A.  Storage  Allocation ' 


Program 

3«10 

cells 

Constants 

122io 

cells 

Temporary  Storage 

1 

cell 

159 

cells 

B.  Constants 

In  addition  to  the  tables  used  for  interpolation,  RC  contains  the 
following  constants : 

TAG  DESCRIPTION  FORMAT 

St^  .00033  (refraction  index-1 )  floating 

PIE  3.11^15926535897  floating 

L0C1  1  fixed,  scaled  2° 

C^UP  -0  fixed 

C.  Temporary  Storage 

RC  uses  the  following  cell  as  well  as  the  first  cell  In  the 
CCMHQN  table. 

TAG  DESCRIPTiaN 

SAVE  holds  reduced  angle 
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VALlSArm  TESTS 

A.  Test  Inputs 

The  test  program  contained  a  table  of  21  radian  values  ^ich  were 
used  as  iiqputs  to  IK!.  Appendix  A  gives  these  Inputs  and  the 
results  from  RC. 

B.  Procedure 

The  test  program  was  written  as  a  callable  function  under  MTCIZ 
control.  Ihe  F99  mod.  NS  version  of  RC  was  Incorporated  as  a 
re -defined  fvinctlon. 

C.  Results 

RC  gave  the  expected  results  in  all  cases. 

RSTBBfCES 

1.  N-(L)-19126/000/00,  Description  of  Revised  RC 

2.  1MSC-4473T8,  page  ^^.05.13>  Systems  Manual  Subroutine  Description 
of  RC. 

3.  TM-(L)-715/025/00,  Utility  Program  Descriptions,  Milestone  XI, 
Interpolate  by  Divided  Differences  (INDIV),  (AFCPL  #75024) . 

4.  IMSD-447578,  page  50.06.01,  Systems  Manual  Subroutine 
Description  of  SUBERR. 
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APPENDIX  A 

The  test  results  In  deelnal  radians  are  shown  In  the  following  table. 


INPUT 

RC  RESULT 

.05236 

.04773382079 

.209UU 

.2079312841 

.38397 

.3831598609 

.401^3 

.4006583167 

.61087 

.6104000062 

.80285 

.8025315364 

1.0 

.9997881829 

1.23918 

1.239066350 

1.55334 

1.553334237 

1.58825 

1.588255762 

I.7802U 

1.780310141 

2.75762 

2.758430133 

2.67035 

2.670994323 

2.09444 

2.094630537 

3.1415926535897 

3.150574116 

3.158 

3.150574116 

4.712 

3.150574116 

4.72 

-.008981462391 

6.27 

-.008981462391 

5.06145 

-.008981462391 

0 

-.008981462391 
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